!      Parameter(I0  =200,JMax=50)
c      Parameter(I0  =100,JMax=50)
c      Parameter(IA  =200,JMax=1)
      Parameter(IA  =50,JMax=40)
      Parameter(IMax=2*IA-1)
